$file=$ARGV[0];
$output=$ARGV[1];
open(FH,"<$file") or die;

open(OUT,">$output") or die;
while($line=<FH>){
	#chomp($line);
	my @splitin=split "\t",$line;
	next if $splitin[0]=~/^\@/;
	next if $splitin[0] ne "";
	my @read;
	my $name_1 = "@".$splitin[0]."_".$splitin[2]."_".$splitin[3]."_".$splitin[4];
	my $name_2 = "+".$splitin[0]."_".$splitin[2]."_".$splitin[3]."_".$splitin[4];
	push(@read,"$name_1\n$splitin[9]\n$name_2\n$splitin[10]\n");
	print OUT @read;
}
close(FH);
close(OUT);
